home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / prog_d / wptools1.zip / DEMO / LABEL / UNIT2.PAS < prev   
Pascal/Delphi Source File  |  1996-04-13  |  2KB  |  98 lines
  1. unit Unit2;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, WpWinCtr, WPRich, WPRuler, ExtCtrls, WPTbar, WPDefs, buttons;
  8.  
  9. type
  10.   TEditForm = class(TForm)
  11.     WPToolBar1: TWPToolBar;
  12.     WPRuler1: TWPRuler;
  13.     WPRichText1: TWPRichText;
  14.     procedure WPToolBar1IconSelection(Sender: TObject; var Typ: TWpSelNr;
  15.       const str: String; const group, num, index: Integer);
  16.   private
  17.     { Private-Deklarationen }
  18.   public
  19.     { Public-Deklarationen }
  20.   end;
  21.  
  22. var
  23.   EditForm: TEditForm;
  24.  
  25. implementation
  26.  
  27. {$R *.DFM}
  28.  
  29. { please include unit WPDefs }
  30. procedure TEditForm.WPToolBar1IconSelection(Sender: TObject;
  31.   var Typ: TWpSelNr; const str: String; const group, num, index: Integer);
  32. begin
  33.   if (group = WPI_GR_DISK) and
  34.      (num  = WPI_CO_EXIT) then
  35.        ModalResult := IDOK;
  36. end;
  37.  
  38. (* Group and Number definitions :
  39.    unit WPDefs
  40.  
  41. const WPI_GR_STYLE = 1;  { Bold ... }
  42.       WPI_GR_ALIGN = 2; { Centerd ... }
  43.       WPI_GR_EDIT  = 3; { copy, paste ... }
  44.       WPI_GR_DISK  = 4; { new,open,save ... }
  45.       WPI_GR_PRINT = 5; { print, print setup }
  46.       WPI_GR_DATA  = 6; { prev, next ... }
  47.  
  48.       WPI_GR_PARAGRAPH = 10; { Ereignisse der Formatierung }
  49.       WPI_GR_TABSTOP   = 11;
  50.       WPI_GR_PAGE      = 12;
  51.  
  52.       WPI_GR_USER  = 21; { free for User use }
  53.  
  54.  
  55. { Commands = Numbers}
  56. const WPI_CO_Normal=1;   { Group: WPI_GR_STYLE }
  57.       WPI_CO_Bold  =2;
  58.       WPI_CO_Italic=3;
  59.       WPI_CO_Under =4;
  60.       WPI_CO_Hyperlink = 5;
  61.       WPI_CO_StrikeOut = 6;
  62.  
  63.       WPI_CO_Left  =1;  { Group: WPI_GR_ALIGN }
  64.       WPI_CO_Right =2;
  65.       WPI_CO_Justified =3;
  66.       WPI_CO_Center=4;
  67.  
  68.       WPI_CO_Copy  =1; { Group WPI_GR_EDIT }
  69.       WPI_CO_Cut   =2;
  70.       WPI_CO_Paste =3;
  71.       WPI_CO_SelAll =4;
  72.       WPI_CO_HideSel=5;
  73.       WPI_CO_Find   =6;
  74.       WPI_CO_Replace=7;
  75.       WPI_CO_SpellCheck=8;
  76.  
  77.       WPI_CO_Exit  =1; { Group: WPI_GR_DISK }
  78.       WPI_CO_New   =2;
  79.       WPI_CO_Open  =3;
  80.       WPI_CO_Save  =4;
  81.       WPI_CO_Close =5;
  82.  
  83.       WPI_CO_Print =1; { Group: WPI_PRINT }
  84.       WPI_CO_PrintSetup=2;
  85.  
  86.       WPI_CO_Next   =1; { Group: WPI_DATA }
  87.       WPI_CO_Prev   =2;
  88.       WPI_CO_Add    =3;
  89.       WPI_CO_Del    =4;
  90.       WPI_CO_Edit   =5;
  91.       WPI_CO_Cancel =6;
  92.       WPI_CO_ToStart=7;
  93.       WPI_CO_ToEnd  =8;
  94.       WPI_CO_Post   =9;
  95. *)
  96.  
  97. end.
  98.